MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search

/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.03 Mar 88 / GLA source / GLA.R < prev next >

Wrap

Text File | 1988-01-28 | 3.4 KB | 341 lines | [TEXT/EDIT]

*Graphic Load Appl.R * GLA.rsrc RSRCWAKA Type WAKA = STR ,0 Graphic Load Average \0D© by Peter Korn \0Dver 28 JAN 1988 Type FREF ,128 APPL 0 Type BNDL ,128 WAKA 0 ICN# 0 128 FREF 0 128 TYPE WIND BarWindow,128 load 40 350 80 400 Invisible NoGoAway 3 0 TYPE SIZE = GNRL JugglerSize, -1 5800 0000 8000 0000 8000 ;; gotten by looking at Size = -1 resource as general TYPE MENU AppleMenu, 128 \14 About Load Average (- FileMenu, 129 File (Print/P Quit/Q EditMenu, 130 Edit (Undo/Z (- (Cut/X (Copy/C (Paste/P (Clear/B ConfigureMenu, 131 Configure Tick ceiling/\1B!\C8 Interval time/\1B!\C9 Measurement width/\1B!\CA (- Tick ceiling/\1B!\CB Interval time/\1B!\CC Measurement width/\1B!\CD (- Tick ceiling/\1B!\CE Interval time/\1B!\CF Measurement width/\1B!\D0 (- Tick ceiling/\1B!\D1 Interval time/\1B!\D2 Measurement width/\1B!\D3 (- Compress juggler RAM Ceiling1Menu, 200 Ceiling1 1 2 3 4 5 6 7 8 9 10 15 20 30 60 Interval1Menu, 201 Interval1 1 2 5 10 20 60 120 180 600 1200 Width1Menu, 202 Width1 1 2 3 4 5 Ceiling2Menu, 203 Ceiling2 1 2 3 4 5 6 7 8 9 10 15 20 30 60 Interval2Menu, 204 Interval2 1 2 5 10 20 60 120 180 600 1200 Width2Menu, 205 Width2 1 2 3 4 5 Ceiling3Menu, 206 Ceiling3 1 2 3 4 5 6 7 8 9 10 15 20 30 60 Interval3Menu, 207 Interval3 1 2 5 10 20 60 120 180 600 1200 Width3Menu, 208 Width3 1 2 3 4 5 Ceiling4Menu, 209 Ceiling4 1 2 3 4 5 6 7 8 9 10 15 20 30 60 Interval4Menu, 210 Interval4 1 2 5 10 20 60 120 180 600 1200 Width4Menu, 211 Width4 1 2 3 4 5 * Program Messages Dialog box... type DLOG ,258 Program Messages 100 100 200 400 Visible NoGoAway 1 0 258 type DITL ,258 3 BtnItem Enabled 65 230 95 285 OK StatText Disabled 15 60 85 222 ^0\0D^1\0D^2\0D^3 IconItem Disabled 10 10 42 42 1 TYPE INFO = GNRL Window Pos h, 150 0060 ;; initial horizontal window position Window Pos v, 151 0060 ;; initial vertical window position Ceiling1, 200 01 ;; initial Ceiling1 value Interval1, 201 01 ;; initial Interval1 value Width1, 202 05 ;; initial Width1 value Ceiling2, 203 02 ;; initial Ceiling2 value Interval2, 204 02 ;; initial Interval2 value Width2, 205 05 ;; initial Width2 value Ceiling3, 206 03 ;; initial Ceiling3 value Interval3, 207 03 ;; initial Interval3 value Width3, 208 05 ;; initial Width3 value Ceiling4, 209 04 ;; initial Ceiling4 value Interval4, 210 05 ;; initial Interval4 value Width4, 211 05 ;; initial Width4 value TYPE ALRT MyAlert, 128 (2) 79 139 192 450 128 4444 TYPE DITL MyDialogList, 128 (2) 4 ButtonItem Enabled 81 127 101 177 OK StatText Enabled 8 78 28 228 Graphic Load Average StatText Enabled 28 78 48 228 written by Peter Korn StatText Enabled 53 9 72 294 Portions of this code © Think Technologies Type ICN# = GNRL ,128 (0) .H 0000 0000 0000 0000 00FF FF80 0300 0060 0400 0010 0800 0008 1000 0004 1000 0004 2000 0002 2000 0002 2000 0002 2000 F002 2000 F002 2000 F002 2000 F002 2000 F002 21E0 F002 21E0 F002 21E0 F002 21E0 F0E2 21E0 F0E2 21E0 F0E2 21E0 F0E2 21E0 F0E2 11E0 F0E4 11E0 F0E4 09E0 F0E8 05E0 F0F0 03E0 F0E0 00FF FF80 0000 0000 0000 0000 * FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF